DECLARE FUNCTION LoadSound&()  LIBRARY
DECLARE FUNCTION UnLoadSound() LIBRARY
DECLARE FUNCTION PlaySound()   LIBRARY
DEFLNG  K
DEFLNG  L
LIBRARY "noisy.library"
K&=LoadSound&(SADD("anguish"+CHR$(0)), 0)
IF (K& = 0) THEN GOTO EndIt
L& = PlaySound(K)
DeleteSound(K)
EndIt: LIBRARY CLOSE